(set sc (askchoice(prompt "Il faut avoir la Reqtools.library versione 38.1210 ou supérieure, en ce système elle n' est pas présente."
" Choisir si installer en LIBS: ou en un autre tiroir du path de recherche de library files.")
(help "S' il y a un tiroir où installer le library file pas de système choisir-le par le requester suivant.")
(choices "Installer en LIBS:" "Choisir un tiroir" "N' installer pas")
(default 0)
)
)
(select sc
(
(copyfiles
(prompt "Sto copiando le librerie.")
(help @copyfiles-help)
(source "access/libs")
(dest ("libs:"))
(all)
)
(message("Reqtools.library installée en LIBS:"))
)
(
(set dedi
(askdir(prompt "Choisir un tiroir où le système recherche library files.")
(help"aiuto")
(default "sys:")
)
)
(copyfiles
(prompt "Sto copiando le librerie.")
(help @copyfiles-help)
(source "access/libs")
(dest (dedi))
(all)
)
)
(
(abort("On n' a pas installèe Reqtools.library...le programme ne fonctionnerait pas, donc on quitte l' installation. "))
)
)
)
(
(set sc (askchoice (prompt "Il faut avoir la Reqtools.library versione 38.1210 ou supérieure. ")
(help "La vieille version sera remplacèe par la nouvelle.")
(choices "Remplacer" "Ne remplacer pas")
(default 0)
)
)
(if (= sc 0)
(
(copyfiles
(prompt "Sto copiando le librerie.")
(help @copyfiles-help)
(source "access/libs")
(dest ("libs:"))
(all)
)
(message("Reqtools.library installée en LIBS:"))
)
(message("Avec une vieille version de Reqtools.library ChimiCad pourrait pas fonctionner correctement, il faut essayer donc on achève l' installation."))
)
)
)
)
(message("Reqtools.library c' est dejà présente en ce système."))
)
; RICHIESTA DI DOVE INSTALLARE ChimiCad
(set dove (askdir
(prompt "Choix pour l' installation du tiroir ChimiCad.")
(default "sys:")
(help
(cat "On choix ici en quel tiroir mettre le fichiers de ChimiCad. "
"Ces fichiers iront dans un tiroir appelé CHIMICAD, qui sera "
"creé par le programme d' installation. "
))
))
;Crea directory
(makedir (tackon dove "chimicad")
)
(makedir (tackon dove "chimicad/ACCESSORI")
)
(makedir (tackon dove "chimicad/MANUALI")
)
(makedir (tackon dove "chimicad/ACCESSORI/ROTAZIONI")
)
(makedir (tackon dove "chimicad/ACCESSORI/BANCHI")
)
;Copia dei files
(copyfiles
(prompt "Sto copiando l' icona del cassetto.")
(help @copyfiles-help)
(source "chimicad.info")
(dest dove)
)
(copyfiles
(prompt "Sto copiando l' icona del cassetto.")
(help @copyfiles-help)
(source "chimicad.info")
(dest (tackon dove "chimicad"))
(newname "MANUALI.info")
)
(copyfiles
(prompt "Sto copiando il programma.")
(help @copyfiles-help)
(source "prog")
(dest (tackon dove "chimicad"))
(all)
)
(copyfiles
(prompt "Sto copiando la documentazione.")
(help @copyfiles-help)
(source "doc/italiano")
(dest (tackon dove "chimicad/manuali"))
(all)
)
(copyfiles
(prompt "Sto copiando l'interfaccia.")
(help @copyfiles-help)
(source "access/interfaccia")
(dest (tackon dove "chimicad/ACCESSORI"))
)
(copyfiles
(prompt "Sto copiando i settings.")
(help @copyfiles-help)
(source "access/chimicad.settings")
(dest (tackon dove "chimicad/ACCESSORI"))
)
(copyfiles
(prompt "Sto copiando il catalog.")
(help @copyfiles-help)
(source "access/cat/chimicad.catalog.f")
(dest "locale:catalogs/français")
(newname "chimicad.catalog")
)
(copyfiles
(prompt "Sto copiando gli shapes.")
(help @copyfiles-help)
(source "access/shapes.shp")
(dest (tackon dove "chimicad/ACCESSORI"))
)
(copyfiles
(prompt "Sto copiando le rotazioni.")
(help @copyfiles-help)
(source "access/rotazioni")
(dest (tackon dove "chimicad/ACCESSORI/ROTAZIONI"))
(all)
)
(set sc (askchoice (prompt "Chimicad utilise Greeksymbols.font pour les lettres greques. "
"Ce font sera installé dans FONTS: . "
" Si on n' installe pas Greeksymbols.font le programme ne fonctionnera pas.")
(help "Si on ne veut pas installer Greeksymbols.font changer le fichier "
"Chimicad.settings, en remplaceant Greeksymbols.font par un .font "
"présent dans le système. Ce font sera activable par F4.")
(choices "Installer font" "N' Installer pas")
(default 0)
)
)
(if (= sc 0)
(
(copyfiles
(prompt "Sto copiando il font Symbol.")
(help @copyfiles-help)
(source "access/fonts")
(dest "fonts:")
(all)
)
(message ("On a installé Greeksymbols.font en FONTS: "))
)
(message ("On n' a pas installé Greeksymbols.font. Changer dans le fichier ChimiCad.settings `Greeksymbols.font' avec quelconque autre nom de font."))
